home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8311.arc / LOOKUP.BAS < prev    next >
BASIC Source File  |  1984-01-26  |  307b  |  7 lines
  1. 100 PROC.CTL$="/CLC,F8/CMC,F5/CLD,FC/CLI,FA/HLT,F4/LOCK,F0"
  2. 110 INPUT"Enter mnemonic: ",M$
  3. 120 P=INSTR(PROC.CTL$,"/"+M$+",") : IF P>0 THEN 140
  4. 130 PRINT"Ivnalid. Re-enter." : GOTO 110
  5. 140 P=INSTR(P+1,PROC.CTL$,",") 'find comma after mnemonic
  6. 150 H$=MID$(PROC.CTL$,P+1,2)   'get hex for this mnemonic
  7.